home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue48 / System / DCUDefs.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-06-24  |  2.4 KB  |  60 lines
  1. unit DCUDefs;
  2.  
  3. interface
  4.  
  5. const
  6.     // Magic signatures
  7.  
  8.     D2Magic  =         $50505348;
  9.     D3Magic  =         $44518641;
  10.     D4Magic  =         $4768A6D8;
  11.     D5Magic  =         $F21F148B;
  12.     B3Magic  =         $475896C8;
  13.  
  14.     // DCU record tags
  15.  
  16.     Tag_Variable      =        $20;       // variable definition
  17.     Tag_Param         =        $21;       // parameter definition
  18.     Tag_VarPar          =        $22;      // VAR parameter definition
  19.     Tag_ResPtr        =        $23;
  20.     Tag_AbsVar          =        $24;
  21.     Tag_Const         =        $25;       // constant definition
  22.     Tag_VMT           =        $26;       // VMT definition
  23.     Tag_StructConst   =        $27;       // Typed constant definition
  24.     Tag_Proc          =        $28;       // procedure definition
  25.     Tag_StdProc       =        $29;       // stdproc definition
  26.     Tag_Type          =        $2A;       // type definition
  27.     Tag_Label          =        $2B;      // label definition
  28.     Tag_Field          =        $2C;
  29.     Tag_Method        =        $2D;
  30.     Tag_Constructor   =        $2E;
  31.     Tag_Destructor    =        $2F;
  32.     Tag_Property      =        $30;
  33.     Tag_ThreadVar     =        $31;       // thread variable definition
  34.     Tag_ResString     =        $32;      // resource string definition
  35.     Tag_ExtProc       =        $33;
  36.  
  37.     Tag_End           =        $61;       // end of file marker
  38.     Tag_End_Record    =           $63;       // end of compound record
  39.     Tag_Int_Use          =           $64;       // external definitions used by INTERFACE
  40.     Tag_Imp_Use          =           $65;       // external definitions used by IMPLEMENTATION
  41.     Tag_Type_Use      =        $66;       // reference to external type
  42.     Tag_Sym_Use       =        $67;       // reference to external symbol
  43.     Tag_DLL_Import    =        $68;       // reference to DLL-imports
  44.     Tag_Inc_Level     =        $6A;       // increment level
  45.     Tag_Dec_Level     =        $6B;       // decrement level
  46.  
  47.     Tag_DFK_Source    =        $70;       // required Source file (.PAS / .INC)
  48.     Tag_DFK_Object    =           $71;       // required Source file (.OBJ)
  49.     Tag_DFK_Resource  =           $72;       // required Source file (.RES)
  50.     Tag_DFK_TheAdr    =           $73;       // required Source file (.???)
  51.  
  52.     Tag_Unit_Flags    =        $96;       // unit flags information
  53.  
  54. type
  55.     TDCUVersion = ( B3, D2, D3, D4, D5 );
  56.  
  57. implementation
  58.  
  59. end.
  60.